﻿Public Class Response

#Region "Member Fields"
    Private _requestUrl As String
    Private _responseXml As String
#End Region
    
#Region "Properties"
    Public Property RequestUrl() As String
        Get
            Return _requestUrl
        End Get
        Set(ByVal value As String)
            _requestUrl = value
        End Set
    End Property
    Public Property ResponseXml() As String
        Get
            Return _responseXml
        End Get
        Set(ByVal value As String)
            _responseXml = value
        End Set
    End Property
#End Region

#Region "Constructors"
    Public Sub New()

    End Sub

    Public Sub New(ByVal requestUrl As String, ByVal responseXml As String)
        _requestUrl = requestUrl
        _responseXml = responseXml
    End Sub
#End Region

#Region "Overrides"
    Public Overrides Function ToString() As String
        Return String.Format("URL:{0}{1}{0}{0}RESPONSE:{0}{2}", vbCrLf, RequestUrl, ResponseXml)
    End Function
#End Region

End Class
